home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 13 / AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso / rexx / removeblanklines.bed < prev    next >
Text File  |  1997-12-03  |  357b  |  27 lines
  1. /*
  2. ** $VER: RemoveBlankLines.bed 1.0 (02.01.96)
  3. **
  4. ** Remove all empty lines from the current document
  5. **
  6. ** Modified by Marco Negri
  7. */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. SetDisplayLock ON
  12. SetInputLock ON
  13.  
  14. MoveSOF
  15.  
  16. SetStatusBar "Removing blank lines..."
  17.  
  18. DO UNTIL RC ~= 0
  19.     GetChar
  20.     IF RC ~= 0 THEN DeleteLine; ELSE MoveDown
  21. END
  22.  
  23. MoveSOF
  24.  
  25. SetInputLock OFF
  26. SetDisplayLock OFF
  27.